BBS in a Box 7

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Rinaldi / HC 2.0 Only / Textoid 3.6.cpt / Textoid 3.6 (US) / cards.xml < prev next >

Wrap

Text File | 1992-07-17 | 35KB | 315 lines

card_3055.xml <?xml version="1.0" encoding="utf-8" ?> <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" > <card> <id>3055</id> <filler1>0</filler1> <bitmap>BMAP_3273.pbm</bitmap> <cantDelete> <false /> </cantDelete> <showPict> <true /> </showPict> <dontSearch> <false /> </dontSearch> <owner>2661</owner> <link rel="stylesheet" type="text/css" href="stylesheet_2387.css" /> <part> <id>1</id> <type>field</type> <visible> <true /> </visible> <dontWrap> <false /> </dontWrap> <dontSearch> <false /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>69</left> <top>68</top> <right>434</right> <bottom>252</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> Geneva <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name></name> <script></script> </part> <part> <id>5</id> <type>button</type> <visible> <true /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>186</left> <top>294</top> <right>355</right> <bottom>324</bottom> </rect> <style>roundrect</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>Textoid</name> <script>on mouseUpTextoid "Test1","cd fld 1",false,"91,69","red","BigWindoidZoom"testError the ResultTextoid "Test2","This is a sample of wrapping text, you can edit me."¬¨,"chicago",12,"285,142,385,242","white,blue"testError the ResultTextoid "Test3","Shadow-type window without scrollBars",¬¨"95,200,259,225","Chicago",12,"shadow"testError the Resultset selectedChunk of window "Test2" to "11,16"end mouseUpon TestError Whatif What ‚â† emptythenbeepanswer Whatexit to HyperCardend ifend TestError</script> </part> <part> <id>25</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>108</left> <top>263</top> <right>330</right> <bottom>277</bottom> </rect> <style>transparent</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>Get/Set of window</name> <script></script> </part> <part> <id>21</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>392</left> <top>0</top> <right>512</right> <bottom>125</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> Geneva <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>Windows</name> <script></script> </part> <part> <id>22</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>327</left> <top>260</top> <right>387</right> <bottom>279</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name></name> <script>on mouseDownget AllWindoids()if it ‚â† emptythenget FullHPop(it)if it ‚â† emptythenset name of me to item 1 of itshow btn 5show btn 6end ifend ifend mouseDown</script> </part> <part> <id>23</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>372</left> <top>262</top> <right>387</right> <bottom>275</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>31383</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>WindArrow</name> <script>on mouseDownsend mouseDown to btn 3end mouseDown</script> </part> <part> <id>24</id> <type>field</type> <visible> <false /> </visible> <dontWrap> <true /> </dontWrap> <dontSearch> <true /> </dontSearch> <sharedText> <false /> </sharedText> <fixedLineHeight> <true /> </fixedLineHeight> <autoTab> <false /> </autoTab> <lockText> <true /> </lockText> <rect> <left>392</left> <top>125</top> <right>512</right> <bottom>342</bottom> </rect> <style>scrolling</style> <autoSelect> <false /> </autoSelect> <showLines> <false /> </showLines> <wideMargins> <false /> </wideMargins> <multipleLines> <false /> </multipleLines> <reservedFamily> 0 </reservedFamily> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> Geneva <textSize>9</textSize> <textStyle>plain</textStyle> <textHeight>12</textHeight> <name>Properties</name> <script></script> </part> <part> <id>26</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>167</left> <top>260</top> <right>251</right> <bottom>279</bottom> </rect> <style>shadow</style> <showName> <true /> </showName> <highlight> <false /> </highlight> <autoHighlight> <true /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>0</icon> <textAlign>left</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>property</name> <script>on mouseDownput FullHPop(cd fld "Properties",left of me & ",5") into PopResultif PopResult is emptythen exit mouseDownif item 2 of PopResult is emptythendo "get" && item 1 of PopResult && "of window" && quote & ¬¨short name of btn id 22 & quoteanswer item 1 of PopResult && "=" && itelseif item 2 of PopResult is "To‚Ä¶"thenask "Set" && item 1 of PopResult && "to :"if the Result = "Cancel" then exit mouseDowndo "set" && item 1 of PopResult && "of window" && quote & ¬¨short name of btn id 22 & quote && "to" && itelsedo "set" && item 1 of PopResult && "of window" && quote & ¬¨short name of btn id 22 & quote && "to" && item 2 of PopResultend ifend ifend mouseDown</script> </part> <part> <id>27</id> <type>button</type> <visible> <false /> </visible> <reserved5> 0 </reserved5> <reserved4> 0 </reserved4> <reserved3> 0 </reserved3> <reserved2> 0 </reserved2> <reserved1> 0 </reserved1> <enabled> <true /> </enabled> <rect> <left>235</left> <top>262</top> <right>250</right> <bottom>275</bottom> </rect> <style>transparent</style> <showName> <false /> </showName> <highlight> <false /> </highlight> <autoHighlight> <false /> </autoHighlight> <sharedHighlight> <true /> </sharedHighlight> <family>0</family> <titleWidth>0</titleWidth> <icon>31383</icon> <textAlign>center</textAlign> Chicago <textSize>12</textSize> <textStyle>plain</textStyle> <name>PropArrow</name> <script>on mouseDownsend mouseDown to btn 5end mouseDown</script> </part> <content> <layer>card</layer> <id>1</id> <text> Textoid 3.6 by Fr√©d√©ric RINALDI and the faithfull help of Beno√Æt WIDEMANN for WDEF and CDEF resourcesDESCRIPTION Textoid XCMD displays a full-styled text windoid.SYNTAX Textoid <WName>[,<text>[,<WStyle>][,<color>] [,<X,Y[,Z,T]>] [,<textWrap>][,<FName>] [,<FSize>] [,<FStyle>] [,<FAlign>] ]PARAMETERS Only first param is needed. Order of params 3 to 10 doesn't matter, since the XCMD is able to recognize them. WName is a string giving the windoid name. Many windoids can be opened by using different names. Text is the text that will be displayed in the windoid. It can be litteral or a field descriptor. Textoid "Test","This is my text" Textoid "Test",cd fld 1 If you pass a valid field descriptor enclosed in quotes, HyperCard will not interpret it and Textoid will use the full-styled text of that field rather than its text only. If the descriptor is not valid, Textoid will use it as litteral. Textoid "Test","cd fld 1" If you want to use the field name, you will use : Textoid "Test","cd fld" && quote & "Name" & quote WStyle is a string defining the window style. Allowed styles are : plain, zoom, roundRect, rect, shadow, windoid, windoidZoom, bigWindoid, bigWindoidZoom, Rinaldoid, RinaldoidZoom (Rinaldoid is the same as windoid, except that it displays the window title). All window styles are floating, except plain, zoom and roundRect. A windoid or Rinaldoid style window will have small scrollbars, while other styles will use standard size. Default is RinaldoidZoom if Rinaldoid WDEF resource is present, windoidZoom if not found. Color is a one or two items string giving the foreground and background color. For each item, allowed values are the standard colors (black, white, blue, red, yellow, cyan, magenta, green), or a three word string corresponding to red, green and blue values (100 5624 28652). <X,Y[,Z,T]> will be a point or a rect, and will define position and/or size of the windoid. Coordinated are card-relative. If omitted, windoid will appear with standard size at "0,10". textWrap is a boolean to wrap (true) or not (false) the text in the windoid. This param makes also the horizontal scrollBar be invisible (true) or visible (false). Default is true, and horizontal scroll being hidden. FName is a string giving the font that will be used. Default is Geneva. FSize is a string giving the font size that will be used. Default is 9. FStyle is an item(s) string giving the font style(s) that will be used (plain, bold, italic, outline, underline, shadow, condense, extend, grouped). Default is Plain. FAlign is a string giving the text alignment that will be used (left,right, center). Default is left. Using "!", "?" or "=" as first parameter will return an online help (resp. copyright, syntax and output).USING Textoid is stand alone, no linked resource is needed. Meanwhile, this stack contains a WDEF and a CDEF resource that are recognized by the XCMD if present. The WDEF allows to have an enhanced windoid-type window displaying title, while the CDEF is useful to get nice-looking scroll arrows for small scroll bars. So, these resources are optional, and for aesthetic purpose only. If you copy them, their ID can be set to any value but don't change their name. Each window can contain up to 32000 chars.Hint : If you use a rect or shadow style window, placing it on a card can simulate a smart double-scroll HyperCard field. With multiple screens configuration, the windoid will be zoomed on the screen that it lays on. Textoid offers full text editing with Cut, Copy, Paste and Erase. lockText property allows to lock/unlock the content. When a window is created, its text is locked. Like for a field, the content must be locked to accept mouseDown events (thus HyperText). If unlocked, the insertion point will be set at the clickLoc.Shortcuts : ‚Ä¢ Control-Clic in text allows to move the window ‚Ä¢ Command-Click in text locks/unlocks the text (only if UnLockAllowed property is true). ‚Ä¢ Option-Clic in text allows to move text with grabber hand ‚Ä¢ Holding ShiftKey makes any scrolling smoother. ‚Ä¢ Holding OptionKey while clicking in a scrollBar reverses the scroll ‚Ä¢ Command-A selects the whole text (if unlocked) ‚Ä¢ Control-Option-P, B, I, U, O, S, C, E, G changes selection style SelectedChunk property allows to select any part of the text. When using set selectedChunk of window "MyWindow" to "X,Y", the window is brought to the front, the text is automatically unlocked, scrolled to show the insertion point, and you are ready to type in it. You can also get the selectedChunk when the window is closed using : on closeTextoid Which get selectedChunk of window Which put char (item 1 of it) to (item 2 of it) of Text¬¨ of window Which end closeTextoid In order to allow text manipulation by clicking on an HC button, Textoid keep the last selection in a global variable TextoidLastSelection : "<first char>,<last char>,<window name>,<window ID>" Following script will chage current selection to bold : on mouseUp global TextoidLastSelection put item 3 of TextoidLastSelection into WName set selectedChunk of window WName to ¬¨ item 1 to 2 of TextoidLastSelection set textStyle of window WName to "bold" end mouseUpHint : the insertion point will be placed at the end of the text by using : set selectedChunk of window MyWindow to 32000 When a Textoid is displayed, font, style, size and even color are accessible using the existing menus. These act exactly like for HyperCard fields : if there is no current selection in the windoid, menus change the global window attributes. Otherwise, only the current selection attributes are changed. FieldTransfer property (set only) allows to transfer the full-styled text from the windoid to any existing field. Field descriptor must be enclosed in quotes, like the input parameter. set fieldTransfer of window "Test" to "cd fld 1" Both scrollBars can now be hidden. In this case, the growBox remains hidden, but is stilll active. on openTextoid WName,WId if WName is "MyWindow" then set textWrap of window WName to true set ShowVScroll of window WName to false end if end openTextoid The window content can now be printed by using : send "print" to window "MyWindow"MESSAGES OpenTextoid : sent when a windoid is opened, followed by the windoid name and ID. This allows to define window properties before it is shown, since the message can be trapped using a handler : on openTextoid WName,WId if WName is "MyWindow" then... end openTextoid CloseTextoid : sent when a windoid is closed, followed by the windoid name and ID. This allows to define window properties before it is shown, since the message can be trapped using a handler : on closeTextoid WName,WId if WName is "MyWindow" then... end closeTextoid ActivateTextoid : sent for non-floating windows only (plain, zoom, roundRect), when the window is activated. It is followed by the windoid name and ID. DeActivateTextoid : sent for non-floating windows only (plain, zoom, roundRect), when the window is de-activated. It is followed by the windoid name and ID. ClickInText : sent when clicking on a word in the locked window, followed by the clicked word, windoid name and ID, start and end char being clicked, font, size, style and color of text. If the whole sent string (message + params) exceeds 255 chars, then the string will consist of its first 254 chars, followed by character "..." to signify the overflow (the ellipsis character, not three dot characters, hex C9).on clickInText Wrd,WName,WId,Start,Stop,Fnt,Size,Stl,Col if WName is "Test1" and Wrd is ...end clickInTextNote : Fnt, Size, Stl et Col may contain many items if the clicked text has different text attributes.PROPERTIES Like any XWindow, Textoid has properties that can be get and set thru HyperTalk. Default values are shown underlined. properties of window "Textoid" will return an item list of all allowed properties : ‚Ä¢ loc : windoid's position according to card (X,Y) ‚Ä¢ globalLoc : windoid's position according to screen (X,Y) ‚Ä¢ visible : windoid's visibility (true or false) ‚Ä¢ id : windoid's id (get only) ‚Ä¢ messages : list of messages sent by the windoid ‚Ä¢ text : windoid's text (quoted field descriptor gives full style) ‚Ä¢ rect : windoid's position and size according to card (X,Y,Z,T) ‚Ä¢ globalRect : windoid's position and size according to screen (X,Y,Z,T) ‚Ä¢ textFont : current selection's or windoid's font (geneva, times, ‚Ä¶) ‚Ä¢ textSize : current selection's or windoid's font size (9, 10,‚Ä¶) ‚Ä¢ textAlign : windoid's text alignment (left,right,center) ‚Ä¢ textStyle : current selection's or windoid's text style (plain,italic, bold,outline,underline,shadow,condense,extend,grouped) ‚Ä¢ hScroll : horizontal scroll value (X pixels) ‚Ä¢ vScroll : vertical scroll value (X pixels) ‚Ä¢ zoom : zoomed state (in, out) ‚Ä¢ textColor : current selection or windoid's text color (black, white, blue, red, yellow, cyan, magenta, green) or (R G B) ‚Ä¢ backColor : back color (black, white, blue, red, yellow, cyan, magenta, green) or (R G B) ‚Ä¢ lockText : text locking (true or false) ‚Ä¢ viewChunk : visible text portion (Start[,Stop]) ‚Ä¢ selectedChunk : current selection offset (Start,Stop) ‚Ä¢ selectedText : current selection text (set allows to replace selected text in the window by another text) ‚Ä¢ fieldTransfer : text transfer to any field (set only) ‚Ä¢ textWrap : wrapping of text (true or false) ‚Ä¢ textWidth : width of text (set has no effect if textWrap = true) ‚Ä¢ UnLockAllowed : unlocking text by Cmd-click permission (true or false) ‚Ä¢ GrowAllowed : window growing permission (true or false) ‚Ä¢ MoveAllowed : window moving permission (true or false) ‚Ä¢ ShowVScroll : vertical scrollBar visible (true or false) ‚Ä¢ ShowHScroll : horizontal scrollBar visible (= NOT textWrap)ERRORSIf an error occurs, external can return : "Error : Missing window name" "Error : Text cannot exceed 32000 chars" "Error : Unrecognized parameter" "Error : Duplicate window name" "Error : Empty parameter" "Error : Window rect defined twice" "Error : Window loc defined twice" "Error : Text wrap defined twice" "Error : Font size defined twice" "Error : Font name defined twice" "Error : Font style defined twice" "Error : Font alignment defined twice" "Error : Bad text style" "Error : Unable to create XWindow" "Error : XWindows not implemented" "Error : Bad property value"VERSIONS HISTORY3.6 : 07/08/92‚Ä¢ Added printing feature‚Ä¢ Added extended keyboard function keys support‚Ä¢ Text color is not lost anymore when setting the text property3.5 : 05/21/92‚Ä¢ Added owner property3.4 : 05/05/91‚Ä¢ Fixed "set rect" property3.3 : 04/21/91‚Ä¢ Fixed bug appearing with Classic/System 6‚Ä¢ Enhanced property error handling‚Ä¢ Changed SetClickLoop3.2 : 03/12/92‚Ä¢ No more CURS resources creation in res file‚Ä¢ Last selection stored in TextoidLastSelection global variable‚Ä¢ Added ActivateTextoid and DeActivateTextoid messages‚Ä¢ HyperText uses Script Mgr to get word boundaries‚Ä¢ Fixed default window position‚Ä¢ Grouped style now supported‚Ä¢ Fixed edition in non-floating windows‚Ä¢ ScrollBars are updated while click-dragging in text‚Ä¢ Non-floating windows no more hidden when switching feom HC‚Ä¢ Added window ID param with all messages‚Ä¢ Added id, messages, UnLockAllowed,GrowAllowed, MoveAllowed, ShowVScroll, ShowHScroll and viewChunk properties‚Ä¢ Horizontal scrollBars visible only if needed (textWrap = false)‚Ä¢ Both scrollbars can now be hidden‚Ä¢ Fixed many other small bugs3.1 : 05/25/91‚Ä¢ fixed set textSize bug3.0 : 04/24/91‚Ä¢ Full Undo now supported‚Ä¢ All text attributes properties now apply to current selection if one‚Ä¢ Added text grabbing with option-click in text‚Ä¢ Holding shift key while using a scrollBar inverses the scrolling direction‚Ä¢ Holding option key while using a scrollBar gives smooth scrolling‚Ä¢ Command-click now also unlocks the text‚Ä¢ Insertion caret placed in text as soon as unlocked, no more second click needed‚Ä¢ Scrolls are now hidden for non-floating backmost windows‚Ä¢ ForeColor property renamed TextColor‚Ä¢ ClicInText message renamed ClickInText‚Ä¢ selectedText property renamed selectedChunk‚Ä¢ Added selectedText property to get selection's text‚Ä¢ Added style shortcuts (Ctrl-Option P, B, I, U, O, S, C, E)‚Ä¢ Added Alignment items in style menu‚Ä¢ Text Color is passed along with ClicInText message, as well as different text attributes if there are.‚Ä¢ Default scroll is now fast, slow optional‚Ä¢ Fixed Font and Style menu handling bug‚Ä¢ Window rect calculation tuned to match field rect calculation‚Ä¢ Fixed scroll bar update when end of text is deleted‚Ä¢ Fixed wrapping when text changed from an existing field‚Ä¢ Fixed non-floating window re-activation2.2 :‚Ä¢ Text Font, Size and Style are passed along with ClicInText message.2.1 :‚Ä¢ Clicked word font, size and style are now passed along with clicInText2.1 :‚Ä¢ Textoid supports now full styled text !‚Ä¢ Added fieldTransfer, textWidth and textWrap properties‚Ä¢ Added fore and background color menu items‚Ä¢ Fixed unwanted autoscroll with HyperText‚Ä¢ Wrap property not changed anymore when resizing window‚Ä¢ Default text width is now 3000 for non-wrapping text‚Ä¢ Clipboard is correctly transfered while switching‚Ä¢ Fixed last null char of text bug2.0 :‚Ä¢ enhanced window show/hide handling while switching under MultiFinder‚Ä¢ selection restored when activating non-floating windows‚Ä¢ text font, size and style can now be set using menus‚Ä¢ window ordering now correct when zooming in/out‚Ä¢ fixed random bug coming from bad controlHandle‚Ä¢ window clipboard now transferred only if not empty‚Ä¢ fixed hypertext bug when clicking on last word‚Ä¢ idle sent to card window even while editing windoid's text‚Ä¢ added start and stop char passed along with ClicInText message1.9 :‚Ä¢ changed inContent cursor1.8 :‚Ä¢ Added window style parameter‚Ä¢ Added "openTextoid" message‚Ä¢ Fixed rect/globalRect property to not show window if invisible‚Ä¢ Added support of Rinaldoid WDEF and CDEF1.6 :‚Ä¢ Window title is displayed‚Ä¢ All RBG values available for color‚Ä¢ Added "closeTextoid" message when closing window‚Ä¢ Fixed minor bugs‚Ä¢ Added "selectedText" property‚Ä¢ Added command-A shortcut1.5 :‚Ä¢ full text editing added.1.4 : ‚Ä¢¬†fixed a bug arising on CPUs with no Color QuickDraw1.3 :‚Ä¢ Added color support1.2 :‚Ä¢ fixed word hilighting with wrapping word1.1 :‚Ä¢ fixed visual minor bugs (color GrowBox, multi-screen grow frame)‚Ä¢ added hyperText capabilities‚Ä¢ added properties : globalLoc,globalRect,textAlign,textStyle,hScroll, vScroll,zoom This stack also uses Switch & FullHpop XFCNs, ¬© Fr√©d√©ric RINALDI.-------------------------------------------------------------------- All externals included in this stack are FreeWare and may be used in non-commercial software provided the following notice is visibly present : Textoid XCMD ¬© Frederic Rinaldi, 1990‚Ä¶1992. Free for non-commercial use. Use in commercial software subjected to prior acknowledgement and licensing from the author, reachable at the following network addresses:AppleLink: RINALDI1 CalvaCom : FR10 Compuserve : 71170,2111</text> </content> <content> <layer>card</layer> <id>21</id> <text>MessageMessage WatcherVariable WatcherScrollFatBitsPatternsToolsTextoid 3.6 (US)Test_Externals</text> </content> <content> <layer>card</layer> <id>24</id> <text>idmessagesloc,To‚Ä¶globalLoc,To‚Ä¶visible,True,Falsetext,To‚Ä¶viewChunk,To‚Ä¶selectedChunk,To‚Ä¶selectedText,To‚Ä¶rect,To‚Ä¶globalRect,To‚Ä¶lockText,True,FalsetextAlign,Left,Right,CenterTextFont,AppleGaramond Bd,AppleGaramond BdIt,AppleGaramond Bk,AppleGaramond BkIt,AppleGaramond Lt,AppleGaramond LtIt,Avant Garde,Bookman,Chicago,Courier,ExteriorIcons,Geneva,Helvetica,Helvetica-Narrow,Monaco,N Helvetica Narrow,New Century Schlbk,New York,Palatino,Symbol,Times,Zapf Chancery,Zapf Dingbats,textSize,9,10,12,14,18,24,Other‚Ä¶textStyle,Plain,Bold,Italic,Underline,Outline,Shadow,Condense,Extend,GrouptextColor,To‚Ä¶backColor,To‚Ä¶hScroll,To‚Ä¶vScroll,To‚Ä¶zoom,In,OuttextWrap,True,FalsetextWidth,To‚Ä¶fieldTransfer,To‚Ä¶GrowAllowed,True,FalseMoveAllowed,True,FalseUnLockAllowed,True,FalseShowVScroll,True,FalseShowHScroll,True,False</text> </content> <name></name> <script>on ClickInText What,Where,WindID,Start,Stop,Font,Size,Style,Coloranswer "Word :" && What & return & "Window name :" && Where & return ¬¨& "Window ID :" && WindID & return & "Start :" && Start & return & ¬¨"Stop :" && Stop & return & "Font :" && Font & return & "Size :" && ¬¨Size & return & "Style :" && Style & return & "Color :" && Colorend ClickInTexton closeTextoid Whatput "You closed window ‚Äú" & What & "‚Äù"end closeTextoidon openTextoid WName,WIdif WName is "Test3"then set ShowVScroll of window WName to falseend openTextoid</script> </card>